---
title: "Mi primer flexdashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: readable
    source_code: embed
    logo: "imcosmall.png"
    favicon: "imcosmall.png"
    social: "linkedin"
    navbar:
      - {title: "IMCO", href: "https://imco.org.mx/", align: right, icon: fa-home}    
---

```{r setup, include=FALSE}
library(flexdashboard)
library(siebanxicor) # Para conectarse a la API de Banxico
library(tidyverse) # Para manipular bases de datos y hacer gráficas
library(reactable) # Para hacer tablas interactivas
library(plotly) # Para hacer que nuestras gráficas sean interactivas
setToken("47a85a927b26df88df8a8df82ae6716ff2ae3bd46bd506e1348d098ee213b076")
```

Pesos por Euros
============================================

Row
-----------------------------------------------------------------------

### Grafica del tipo de cambio pesos por euros

```{r}
serie1 <- "SF46410"
datos1 <- getSeriesData(serie1, "1950-01-01", Sys.Date()) %>% data.frame()
colnames(datos1) <- c("Fecha", "Pesos_por_euros")
grafica1 <- datos1 %>% ggplot() + geom_line(aes(Fecha, Pesos_por_euros), col = "darkblue")
ggplotly(grafica1)
```
> Fuente: Elaboración propia con datos del SIE, Banxico

Row {data-height=500}
-----------------------------------------------------------------------

### Tabla de datos históricos del tipo de cambio pesos por euros

```{r}
reactable(datos1)
```
> Fuente: Elaboración propia con datos del SIE, Banxico

### Metadatos

Estos son los metadatos disponibles en la API de Banxico

```{r}
t(getSeriesMetadata(serie1, locale = "es"))
```

Pesos por Yen {data-orientation=columns}
==================================================

Column {data-width=750}
--------------------------------------------------

### Gráfica de tipo de cambio, pesos por yen

```{r}
serie2 <- "SF46406"
datos2 <- getSeriesData(serie2, "1950-01-01", Sys.Date()) %>% data.frame()
colnames(datos2) <- c("Fecha", "Pesos_por_yen")
grafica2 <- datos2 %>% ggplot() + geom_line(aes(Fecha, Pesos_por_yen), col = "red")
ggplotly(grafica2)
```
> Fuente: Elaboración propia con datos del SIE, Banxico

Column
---------------------------------------------------------------

### Tabla de datos históricos, pesos por yen

```{r}
reactable(datos2)
```
> Fuente: Elaboración propia con datos del SIE, Banxico

Pesos por libras
====================================================

Row
------------------------------------------------

### Gráfica de tipo de cambio pesos por libra

```{r}
serie3 <- "SF46407"
datos3 <- getSeriesData(serie3, "1950-01-01", Sys.Date()) %>% data.frame()
colnames(datos3) <- c("Fecha", "Pesos_por_libras")
grafica3 <- datos3 %>% ggplot() + geom_line(aes(Fecha, Pesos_por_libras), col = "purple")
ggplotly(grafica3)
```
> Fuente: Elaboración propia con datos del SIE, Banxico

### Descargando varios datos

```{r}
varias_series <- c("SF46410", "SF46406", "SF46407")
varios_datos <- getSeriesData(varias_series, "2020-01-01", Sys.Date())
reactable(data.frame(varios_datos))
```
> Fuente: Elaboración propia con datos del SIE, Banxico